Imports System.Console
Public Class Dimond

    Shared Sub Main()

        Dim X As Integer = 0
        Dim Y As Integer
        Dim E As Integer = 0
        Dim UserChocie As Integer
        WriteLine("Please enter a odd number (Between 3 and 19);")
        UserChocie = ReadLine()
        Y = UserChocie - 1

        Do While X < UserChocie
            WriteLine("")
            Write(Space(Y))

            For B = 0 To E Step 2
                Write("*")
            Next

            E = E + 4
            Y = Y - 1
            X = X + 1
        Loop

        Dim G As Integer = 1
        Dim H As Integer = 1
        E = E - 8

        Do While G < UserChocie
            WriteLine("")
            Write(Space(H))
           
            For B = 0 To E Step 2
                Write("*")
            Next
 	    E = E - 4
            H = H + 1
            G = G + 1
        Loop


        ReadLine()
    End Sub

End Class
